print CLIENT <<EOF;
<HTML>
<HEAD>
<title> Tutorials - Security Problems </title>
<LINK REV="made" HREF="mailto:satan\@fish.com">
</HEAD>
<BODY>
<H1><IMG SRC=$HTML_ROOT/images/satan.gif> Tutorials - Security problems </h1>
<hr>
<h2>Table of contents</h2>
<ul>
EOF

foreach (<$html_root/tutorials/vulnerability/*.html>) {
	s;.*/([^\/]+);\1;;
	($_tutorial = $_) =~ s;([^\/]+).html;\1;;
	$_tutorial =~ tr /_/ /;
	print CLIENT <<EOF;
	<p><dt> <IMG SRC=$HTML_ROOT/dots/blackdot.gif>
	<a href=$HTML_ROOT/tutorials/vulnerability/$_> <strong>$_tutorial </strong></a>
EOF
}
print CLIENT <<EOF;
</ul>
<hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a>
</BODY>
</HTML>
EOF
